ûô

On Error Resume Next
On Error GoTo 0
˵
Ĵδʹ On Error Resume Next , ʱʾϢͬʱִҲֹ֮д˾ʱѡشЩ£ڳĵطűһЩ£޷֪ͨû˶Ĵûȷ˵δȫȡĹܡ

һУֻҪڵöջĵطôĴһ㲻Եġһûþֲ򣬵ʱƿͨջתƣֱҵһдḶ́ڳĵطڵöջĹûҵڳĵطʾϢͬʱִֹУͨȷ

On Error Resume Next ʹղִ֮УǰһõḶ́ù̺ On Error Resume Next 䣩еСԲʱ󣬼ִг֮ڹڲ̡ڵһʱOn Error Resume Next ΪǻġԣϣнڲӦÿһõִ On Error Resume Next 䡣

һʱֹʹOn Error Resume Next 䣬ǶҪÿεʱӦִ On Error Resume Next 䡣˳һʱɻָڽ˳֮ǰ״̬

 On Error Resume Next ʹ On Error GoTo 0ô

Ӿ˵ʹ On Error Resume Next : 

On Error Resume Next
Err.Raise 6   ' 
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear   'ô
Ҫ
汾 1
